unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, 
  Controls, Forms, Dialogs,StdCtrls, FileCtrl;

type
  TMainForm = class(TForm)
    DriveBox: TDriveComboBox;
    DirBox: TDirectoryListBox;
    FileBox: TFileListBox;
    edFilter: TEdit;

    Label1: TLabel;

    procedure FileBoxChange(Sender: TObject);
    procedure FileBoxDblClick(Sender: TObject);
    procedure edFilterChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses ShellAPI;
{$R *.DFM}


procedure TMainForm.FileBoxChange(Sender: TObject);
begin
 Caption:=FileBox.FileName
end;

procedure TMainForm.FileBoxDblClick(Sender: TObject);
begin
   ShellExecute(handle,'open',PChar(FileBox.FileName),
                              '',PChar(FileBox.Directory),SW_SHOW);
end;

procedure TMainForm.edFilterChange(Sender: TObject);
begin
    FileBox.Mask:=edFilter.Text;
end;

end.
